home *** CD-ROM | disk | FTP | other *** search
/ Take The Lead Press Kit / Take the Lead Press Kit.iso / pc / main.dxr / SCRIPTS_82_SOUND_EQ.ls < prev    next >
Encoding:
Text File  |  2006-03-14  |  519 b   |  31 lines
  1. property xSprite
  2. global soundIO
  3.  
  4. on beginSprite me
  5.   xSprite = me.spriteNum
  6.   soundIO = 1
  7. end
  8.  
  9. on mouseUp me
  10.   if soundIO = 1 then
  11.     soundIO = 0
  12.   else
  13.     soundIO = 1
  14.   end if
  15. end
  16.  
  17. on quickFade me, quickFade
  18.   sprite(xSprite).tellTarget("VOX")
  19.   case quickFade of
  20.     "fadeIn":
  21.       if soundIO = 1 then
  22.         goToFrame(sprite(xSprite), 5)
  23.         sprite(xSprite).play()
  24.       end if
  25.     "fadeOut":
  26.       goToFrame(sprite(xSprite), 30)
  27.       sprite(xSprite).play()
  28.   end case
  29.   sprite(xSprite).endTellTarget()
  30. end
  31.